home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-20 / schemaii.zip / DEMO.BAT < prev    next >
DOS Batch File  |  1990-04-04  |  2KB  |  159 lines
  1. ECHO OFF
  2. CLS
  3. D$
  4. :TOP
  5. IF ERRORLEVEL 94 GOTO WY
  6. IF ERRORLEVEL 93 GOTO V3
  7. IF ERRORLEVEL 92 GOTO V2
  8. IF ERRORLEVEL 91 GOTO V1
  9. IF ERRORLEVEL 90 GOTO 31
  10. IF ERRORLEVEL 89 GOTO T3
  11. IF ERRORLEVEL 88 GOTO T2
  12. IF ERRORLEVEL 87 GOTO T1
  13. IF ERRORLEVEL 86 GOTO S2
  14. IF ERRORLEVEL 85 GOTO S1
  15. IF ERRORLEVEL 84 GOTO SI
  16. IF ERRORLEVEL 83 GOTO P3
  17. IF ERRORLEVEL 82 GOTO P2
  18. IF ERRORLEVEL 81 GOTO P1
  19. IF ERRORLEVEL 80 GOTO O2
  20. IF ERRORLEVEL 79 GOTO O1
  21. IF ERRORLEVEL 78 GOTO NE
  22. IF ERRORLEVEL 77 GOTO VG
  23. IF ERRORLEVEL 76 GOTO MC
  24. IF ERRORLEVEL 75 GOTO EG
  25. IF ERRORLEVEL 74 GOTO 64
  26. IF ERRORLEVEL 73 GOTO CG
  27. IF ERRORLEVEL 72 GOTO VE
  28. IF ERRORLEVEL 71 GOTO HE
  29. IF ERRORLEVEL 70 GOTO G3
  30. IF ERRORLEVEL 69 GOTO G2
  31. IF ERRORLEVEL 68 GOTO G1
  32. IF ERRORLEVEL 67 GOTO A2
  33. IF ERRORLEVEL 66 GOTO A1
  34. IF ERRORLEVEL 65 GOTO AT
  35. IF ERRORLEVEL 0 GOTO END
  36.  
  37. :WY
  38. D$ ^
  39. GOTO TOP
  40.  
  41. :V3
  42. D$ ]
  43. GOTO TOP
  44.  
  45. :V2
  46. D$ \
  47. GOTO TOP
  48.  
  49. :V1
  50. D$ [
  51. GOTO TOP
  52.  
  53. :31
  54. D$ Z
  55. GOTO TOP
  56.  
  57. :T3
  58. D$ Y
  59. GOTO TOP
  60.  
  61. :T2
  62. D$ X
  63. GOTO TOP
  64.  
  65. :T1
  66. D$ W
  67. GOTO TOP
  68.  
  69. :S2
  70. D$ V
  71. GOTO TOP
  72.  
  73. :S1
  74. D$ U
  75. GOTO TOP
  76.  
  77. :SI
  78. D$ T
  79. GOTO TOP
  80.  
  81. :P3
  82. D$ S
  83. GOTO TOP
  84.  
  85. :P2
  86. D$ R
  87. GOTO TOP
  88.  
  89. :P1
  90. D$ Q
  91. GOTO TOP
  92.  
  93. :O2
  94. D$ P
  95. GOTO TOP
  96.  
  97. :O1
  98. D$ O
  99. GOTO TOP
  100.  
  101. :NE
  102. D$ N
  103. GOTO TOP
  104.  
  105. :VG
  106. D$ M
  107. GOTO TOP
  108.  
  109. :MC
  110. D$ L
  111. GOTO TOP
  112.  
  113. :EG
  114. D$ K
  115. GOTO TOP
  116.  
  117. :64
  118. D$ J
  119. GOTO TOP
  120.  
  121. :CG
  122. D$ I
  123. GOTO TOP
  124.  
  125. :VE
  126. D$ H
  127. GOTO TOP
  128.  
  129. :HE
  130. D$ G
  131. GOTO TOP
  132.  
  133. :G3
  134. D$ F
  135. GOTO TOP
  136.  
  137. :G2
  138. D$ E
  139. GOTO TOP
  140.  
  141. :G1
  142. D$ D
  143. GOTO TOP
  144.  
  145. :A2
  146. D$ C
  147. GOTO TOP
  148.  
  149. :A1
  150. D$ B
  151. GOTO TOP
  152.  
  153. :AT
  154. D$ A
  155. GOTO TOP
  156.  
  157. :END
  158. ECHO ON
  159.